home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 1 / Pier Shareware 1.iso / 007a / courspas.exe / CHAP12.EXE / DYNAMIQ2.PAS next >
Pascal/Delphi Source File  |  1991-01-06  |  427b  |  24 lines
  1. program CreeVarDynam;  {DYNAMIq2.PAS}
  2. uses
  3.   crt;  { unité de Turbo Pascal 6 }
  4.  
  5. const
  6.   n = 250;
  7.  
  8. type
  9.   Ary = array[1..n] of ^string;
  10.  
  11. var
  12.   x: Ary;
  13.   i: integer;
  14.  
  15. begin
  16.   clrscr;
  17.   writeln('Mémoire dynamique disponible avant: ',memAvail);
  18.   for i:= 1 to n do new(x[i]);
  19.   writeln('                      ... et après: ',memAvail);
  20.   gotoxy(1,25);
  21.   write('Veuillez appuyer sur <CR>...');
  22.   readln;
  23. end.
  24.